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i g at Saat R ERROR HANDLER FOR MACRO-32 

4 g 3 MARBBRBAAASAAAALELALALLALLALALE LESSEE EERE REESE EEE ESSEC ESE ESA EECCA ECE EE ROC COSC ELLE. 
;* 

000 s 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 

0 8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 

44 1 - ALL RIGHTS RESERVED. + 
b ® 

ita 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

44 1 7* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

00 15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

0000 15 ;* H RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

8000 16 "9 TRANSFERRED. * 
3 ® 

0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

444 $y : CORPORATION. * 
3 ® 

0000 $§ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

0000 24 ;* * 

0000 25 3@ * 

444 $8 : ; 'MARBRBABRBARAABAAAASLALALASLALALASALASALASE SESE SESASESASEAAESESESESE ESE SELES EAS GS 

0000 3B’ 

0000 9 344 

B88 9 ; FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 

9000 7 : ABSTRACT: 

0000 33 : The VAX-11 MACRO assembler translates nea -32 source code into object 

44 2 ; modules for input to the VAX-11 LINKER 

9000 37 : ENVIRONMENT: USER MODE 

9444 33 : AUTHOR: Benn Schreiber, CREATION DATE: 26-SEP-1978 

0000 41 ; MODIFIED BY: 

0000 $g 3 

0000 43 ; v03.02 RRBO012 owland R. Bradley 25-May-1984 

44 rt: : Add support for CPest IND. FILE error Logging. 

0000 46 ; v03.01 RRBOO11 owland R. Bradley 01-Feb-1984 

0900 ti ; Modify FABERR to gree FAB's which have no NAM block. 

000 49: V03.00 MTROOO4 Mike Rhodes 15-Mar-1982 

Be 50 ; Rodi Ty routine MACSPUT MSG to flag any “external errors’’ 

00 1; that is vag Ngee qfrors issued by Bits Fs such as 

000 § : RMS, LBR, SUM, in the flags word b es FLGSV_EXTERR 

0 3: and FLG$V _EXTURN. —, SPR #11-41651(A 

09 5 3 vO1.04 RNOOT1 R. Newland 11-Sep-1979 

444 § : New Librarian support 
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DECLARATIONS =SEP=1984 01:48:0 MACRO.SRCJERROR.MAR; 1 (2). 


09 9 -SBTTL DECLARATIONS 
6¢ ; INCLUDE FILES: 
0 65 ; 
0 64 
0 65 ; 
00 66 ; MACROS: 
00 67 ; 
00 68 
000 $9 $F ABDEF DEFINE FAB OFFSETS 
0000 0 SSHRDEF DEFINE SHARED MESSAGES 
9808 71 SMAC_CTLFLGDEF DEFINE CONTROL FLAGS 
0 i SSTSBEF DEFINE STATUS WORD BITS AND STUFF 
0000 7 SNAMDEF DEFINE NAM OFFSETS 
0000 74 SRABDEF DEFINE RAB OFFSETS 
B008 75 SMAC_MLFDEF : Define MLF offsets 
017 4 SRMSDBEF : Define RMS return codes 
0177 7 
0177 78 ; 
0177 79 ; OWN STORAGE 
0177 80 ; 
00009009 8} -PSECT MACSRO_DATA,NOWRT ,NOEXE,GBL,LONG 
0000 BS MACSMACRO_NAME: MY NAME 
eoopers ? oppoes" 0000 84 . CONG 208-108, 10$ 
F 524 4D 0008 85 10$: “ASCII \MACRO\ 
000D 86 20S: 
0000 87 
OOOOOFFC 000D 88 ERR RASKeen<Re RS, R4,R5,R6,R7,R8, R9, R10,R11> 
00030000 000D 89 CL1~SUBSYS=*x3000 jeeeTe 
00000010 8090 + SRMSL_SAVE_PC= 6006 ‘ees TEMP==SAVED PC IN CALL FRAME 
00000000 92 -PSECT MAC$RO_CODE_P4,NOWRT,GBL,LONG 
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MACSERR_TEXT:: 
. WORD 
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-SBTTL ERROR ACTION ROUTINES 


ip 
; Functional description: 


Inputs: 
oo Address of MLF 


LBR$ status code 


Bien i: 
WORD 


: ERR 
EXTZV PSiSSV. FAC NO,#STS$S_FAC 


CMPL R1,#<RASS$ _RORMAL@=165 
BEQL =—«-108 
PUSHL #0 
PUSHL RO 
PUSHL #2 
RW MACSPUT_MSG 
10$: 
MOVL  4(AP),R1 
PUSHL RO 
PUSHL #0 
PUSHAB MLFS$Q_FNAMDS(R1) 


umber 
PUSHL #<SHR$_OPENIN!CLI _suBSYSisTSsK. ERROR> ; 
#5 : h of message packet 
; Output message and return 


BRW MACSPUT_MSG 


+ 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE REPORTS AN ERROR. 


ERR_MASK 
RO ~ 


BRW MACSPUT_MSG 


p++ 
; FUNCTIONAL DESCRIPTION: 

: THIS ROUT INE IS CALLE 
; THE ERROR IS REPORTED 
; To MACSABORT _PASS1 IS 


AX/VMS Macro V04-00 
MACRO.SRCJERROR.MAR; 1 


This routine is called to report Librarian open errors 


NO RG RO. R1 ; eet posta *t? number 


; Length of message packet 
; Output message and return 


; Get MLF address 
; RMS error code 


: ae — descriptor 


RO CONTAINS THE ADDRESS OF 
A STRING DESCRIPTOR TO OUTPUT USING SHRS$_TEXT. 


a fae pr tak. ADDRESS 
PUSHL es. TEXTICLI -Su8sys 518k entre Tete CODE 
‘PUT MESSAGE AND RETURN 


G 7 
RROR ERROR HANDLER FOR MACRO-32 16-SEP-1984 0 04:13 YAX/vas Macro Vv04-00 
- ERROR ACTION ROUTINES -SEP-1984 01:48:0 MACRO. SRCJERROR.MAR; 1 
O3—E 151; 
E 1 
E 154 MACSERR_NOMEM: : 
0046'CF 00 FB 8 5 155 “CALLS #0,W*MACSERR_NOMEM_0 $0 WE CAN RETURN CORRECTLY 
FFBA' 31 O63 128 Rw MACSLAST_CHANCE :PASS 2=-NOTHING TO DO BUT DIE 
046 128 MACSERR -NORER _0:: 
OFFC oe 15 WORD” ERR _MASK ENTRY MASK 
00 04 160 PUSHL #0 ~ NO FAO ARGS 
50 D 004A 161 PUSHL RO : STACK ERROR COD 
0g D bec 168 PUSHL #2 TOTAL SIZE OF PACKET 
OOF 1 O0%E 193 3RW MACSPUT_MSG [OUTPUT MESSAGE AND RETURN 
0051 165 
0051 166 i++ 
Bee, \oe 3 ; FUNCTIONAL DESCRIPTION: 
0051 199 : THIS ROUTINE IS CALLED TO REPORT A BAD KEYWORD VALUE ERROR. 
0051 170 ; THE KEYWORD IN ERROR IS IN MACSAB_TMPSYM 
0051 +171; 
0051 \7¢ pe 
0051 17 
0051 174 MACSERR_KEY WD:: 
OFFC 0051 175 -WORD ERR_MASK 
50 Q0000000'EF 9E& 0053 176 OVA LC AKCSAB_TMPSYM.RO POINT TO THE KEYWORD IN ERROR 
01 AO 9F OOSA 177 PUSHAB 1(RO) STACK ITS ADDR ESS 
7E 60 9A 005D 178 MOVZBL (RO),-(SP) STACK ITS LENGTH 
6— 7F 0060 179 PUSHAQ O¢SP5 STACK POINTER TO DESCRIPTOR 
01 DD 0062 £180 PUSHL [NUMBER OF ARGUMENT 
00031112 8F DD 0064 181 PUSHL I<SHRS _BADVALUE ! CLI_SUBSYS'STS$K_ERROR> ;STACK MESSAGE CODE 
03 ODD 006A 13 PUSHL #3 sTOTAL STZE OF PACKET 
00Dp4 «= 31 bb6C 133 BRW MACSPUT_MSG [OUTPUT ERROR AND RETURN TO CALLER 
OO6F 185 599 
se 196 3; FUNCTIONAL DESCRIPTION: 
OO6F 188; THIS ROUTINE IS CALLED WHEN AN INTERNAL ERROR 1s DETECTED. 
O06F 189 ; THE ERROR IS REPORTED, AND THE ASSEMBLY IS ABORTED. 
006F 190 ; 
006F 191 ;-= 
006F 1396 
OO6F 193 MACSERR_INTERN:: 
OFFC Or 194 .WORD 3 
10 AD DD 1 195 PUSHL SARS ahve _PC(FP) STACK ADDRESS OF CALLER'S RETURN 
01 DD 74 196 PUSHL NUMBER RGUME 
00031152 8F ODD 76 «19 PUSHL #<SHRS_BADLOGICPC!CLi _SuBSv'STS8k ERROR> sERROR CODE 
03 pp 198 PUSHL #3 SIZE OF PACKET 
00C2 1 139 BRW MACSPUT_MSG ah An LSTASG. AND RETURN 
6} 
¢ pee 
? z FUNCTIONAL DESCRIPTION: 
: THESE ROUTINES ARE CALLED FOR INPUT AND OUTPUT ERRORS. 


| H 7 | 
+ ee 1 ERRO on R 4 mapnOnse Tere =138¢ be: 08 ‘13 yaneyas Macro V04-00 Page §) 


R HANDLE a 
- ERROR ACTION IN P=1984 8:07 [MACRO.SRCJERROR.MAR; 1 
1 
1 MACSERR_FIND:: 
1 MACSERR-MODIFY:: 
1 MACSERR-CONNECT:: 
1 MACSERR_DISCON:: 
oFre 1 WORD ERR MASK 
“3 ; BSBB ABERR 
000311CA 9 3 LONG SAR _RMSERROR! CLI_SUBSYS! STS$K_ERROR 
089 MACSERR_GET:: 
OFFC 0089 .WORD ERR_MASK sENTRY MASK 
of 1 3 B BSBB RABERR ;PROCESS ERROR ON A RAB 
0003108 9080 -LONG SHR$_READERR!CLI_SUBSYS!5TS$K_ERRO 
0091 MACSERR_PUT: : 
OFFC 0091 -WORD ERR_MASK 
04 10 0093 BSBB_ ss RABERR RAB ERROR 
000310D2 4943 


B - PROC 
.LONG  SHRS_WRITEERR!CLI_SUBSYS'STSS$ 
51 04 AC 00 0099 GET 


'$ 

ERR 
RABERR: MOVL 4(AP) RI iGE E RAB ADDRESS 

MOVL E 

T 

S 


f 
ROU 
fi 
18 
14 
13 
17 
15 
0 
4 
é 
50 3C Al D0 009D 8 RABSL_FAB(R1),RO FAB ADDRESS 
08 AO 08 Al 7D OO0A1 4 mova RABSL-STS(R1) ,FABSL_ stschOs : ERROR IN COMMON PLACE 
56 11 O0A6 0 BRB FILER ;PROCESS ERROR 
0OA8 4 
OOA8 § p++ 
BRAS 3 ; FUNCTIONAL DESCRIPTION: 
00A8 5 THESE ROUTINES ARE CALLED TO PROCESS ERRORS FINDING AND OPENING 
Boag gi 3 INPUT OR OUTPUT FILES, AND ERRORS CLOSING OUTPUT FILES. 
00A8 § ie 
00A8 9 
00A8 40 MACSERR_FIND_iNP:: ; LibSFind_File Frror Reporting 
OFFC Boas 41 WORD ERR_MASK 
50 OC AC DO OOAA rt MOVL 12(AP), RO :GET SECOND RMS ERROR STS 
54 O08 AC 00 BOA 4 MOVL B(AP), R4 [GET STV_ADDR ADDRESS 
51 04 AC 00 008 44 MOVL 4(AP), R1 GET RESOLT ADDRESS 
53 0000'C1 DO 0086 45 MOVL DSCSA_POINTER(R1) ,R3 SET RESULTANT STRING ADDRESS 
52 0000'C1 9A 00BB 4g MOVZBL DSC$W-LENGTH(R1),R2 LENGTH 
OC 6B ce 4 PUSH #*M<R2,R3> PUSH. DESCRIPTOR FOR FILE NAME 
54 DD 8 C 48 PUSHL R4 [RMS 
50 D 00C4 49 PUSHL RO sRMS 3] H 
08 AE F 00C6 50 PUSHAQ 8(SP) : ADDRESS Ay sNAnE DESCRIPTOR 
‘t DD 4 2] PUSHL @ ; NUBBER ARGUMEN TS 
0003109A BF DD cB ¢ PUSHL #<SHRS_OPENIN!CLI_SUBSYS!STS$K ERRO 
oo! ¢? ;ME ESSAGE CODE 
05 OD 00D1 55 PUSHL #5 TOTAL SIZE OF PACKET 
08 2$ ;PROCESS LIBSFIND_FILE ERROR WITH 
006D 3} D 33 BRW MACSPUT_MSG t CALL PUTMSG AND RETURN 
00000000 06 22 . LONG 
DA 61 MACSERR_OPN_INP:: 
OFF DA 66 . WORD ERR MASK 
1c 1 DC 6 BSBB aeene CESS Ai ERROR 
0003109A O0DE 264 . LONG SA _OPENIN!CLI _suasys!stssk _ERR 


MACSERROR ERROR HANDLER FOR MACRO-32 16-SEP :04:13 VAX/VMS Macro v04-00 
404-000 ERROR ACTION ROUTINES g- SEF] 7 8¢ :48: ‘43 ERACRO SRe ERROR.MAR; 1 
E 65 
E 66 MACSERR_OPN_OUT:: 
OFF E é WORD ERR_MASK 
1 £4 68 BSBB. Ss FABER Ocess FAB ERROR 
0003104 E6 $9 .LONG  SHRS_ OPENOUT! CLI _suasys!érss K_ERROR 
OEA 271 MACSERR_CLS_INP:: 
OFFC OOEA te .WORD ERR_MASK 
Oc 10 OOEFC 27 BSBB ss FABERR 
0063105 3 ri .LONG SHR$_CLOSEIN!CLI_SUBSYS!STS$K_ERROR 
F 76 MACSERR_CLS_OUT:: 
OFFC SOF 8 “{WORD ERR_MASK 
04 OOF 278 BSBB Ss FABER 
0003105A OOF 6 r9 .LONG SHRS RELOSEOUT!CLI_SUBSYS!STSSK_ERROR 
50 04 AC dO OOFA BF FABER: MOVL  4(AP),RO :GET THE FAB ADDRESS 
51 28 A0 OD OOF Be FILERR: MOVL = FABSL_NAM(RO),R1 :GET NAME BLOCK ADDRESS 
14 13 010 8 BEQL 6 S$ tIN cas — NO NAM BLOCK 
53 04 Al DO 0104 284 MOVL NAMSL_RSA(R1),R3 'SET RESULTANT STRING ADDRESS 
52 03 Al 9A 0108 285 MOVZBL NAMSB-RSL(R1).R2 ‘AND LENGTH 
1¢ 12 O10C 286 BNEQ 10$ IF NEG RESULTANT NAME FORMED 
53 OC Al iO O10 87 MOVL  NAMSL_ESA(R1),R3 GET ADDRESS OF EXPANDED STRING 
52 0B Al 9A (011 88 MOVZBL NAMS$B~ESL(R1).R2 [AND ITS LEN 
12 12 0116 289 BNEQ —«10$ IF NEQ EXPANDED STRING FORMED 
53 gf AO pO 0118 90 5$ MOVL FABSL_FNA(RO) ,R3 :USE INPUT FILE NAME 
52 34 a0) «(9A «(OTIC MOVZBL FABSB~FNS(RO) .R2 D SIZE 
08 12 0120 29¢ BNEQ 108 +1) NEQ GO USE IT 
53 30 A0 00 0122 29 OVL FABSL_DNA(RO),R3 :TRy THE DEFAULT NAME NOW 
52 35 AO) «(9A «(0126 29% MOVZBL FABS$B~DNS(RO) .R2 SIZE 
51 9E DO 012A 295 10S: OVL  a(SP)F,R1 ‘ory fhe ERROR CODE 
0C BB O12D 296 PUSHR #*M<R2_R3> [PUSH DESCRIPTOR FOR FILE NAME 
08 AO 7D O12F 297 OVQ FABSL_$TS(RO),-(SP) [PUSH RMS ERROR CODES 
6E 827A BF B1 0133 298 CMPW 0s #<RMSS_EOFS*XFFFF>,(SP) :WAS ERROR END OF FILE? 
47 13 0138 299 EQL ERROR EXIT [IF EQL YES--NO ERROR NEEDED 
08 AE 7F 013A 300 PUSHAQ §(SP SADDRESS OF NAME DESCRIPTOR 
01 DD 013D 301 PUSHL #1 “NUMBER OF ARGUMENTS 
51 DD 013F 0¢ PUSHL R1 ME SSAG E 
05 DD 141 08 PUSHL #5 [TOTAL SIZE OF MESSAGE PACKET 
14 05 + NOW SETUP TO CALL $PUTMSG TO OUTPUT THE MESSAGE 
014 0 MACSPUT_MSG: : 
00099000" if ot DO 014 08 MOVL 4(SP),L*MACSGL_STATUS SAVE MOST CURRENT STATUS 
5B 0 0000 9° tf 9— 014 MOVAB MACS$GL_FLAGS,RT1 ‘POINT TO THE GLOBAL ASSEN FLAGS 
8 8F CB 015 10 BICL3 #*CSTSSM_SEVERITY,- [COPY SEVERITY BITS FROM STATUS 
52 60000000" GF 15 11 G*MACSGL STATUS Re ‘1S SEVERITY = WARNIN Ne? 
13° 015 1 BEQL 10% ‘BRANCH IF YES. 
03 D1 016 1 CMPL R2,#STSSK_INFO :NO == IS IT INFORMATION? 
OA 13 16 14 BEQL 20 § [YES == INFO DOESN'T COUNT 
06 68 30 F O16 15 BBCS FL GSV_ EXTERR,(R11),20$ :1TS AN ERROR, SO FLAG IT. 
04 1 0169 18 BRB SWATCH OUT FOR SUCCESSIVE ERRORS. 
00 68 1 53 168 317 10$:  BBCS SriGsy EXTWRN,(R11),20$ :ITS A WARNING, FLAG IT. 
00000 00°EF F 16 18 20$:  PUSHAQ MACSMACRO_NAME [PUSH ADDRESS OF FACILITY NAME 
E D4 1 5 1 CLRL = = (SP) ‘ZERO ADDRESS OF ACTION ROUTINE 
08 Ar F 017 30 PUSHAB 8(SP) ‘PUSH ADDRESS OF MESSAGE BUFFER 
00000000'GF 03 FB OI7A 1 CALLS #3,G°SYSSPUTMSG ‘PRINT THE MESSAGE 
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| 
Symbol table MACRO.SRCJERROR.MAR; 1 (3) | 
FLGSV_XCRF = 0000001F SRMSL_SAVE PC = 1 
MACSAB_TMPSYM eererere §6X STS$K-ERROR = 
MACSERR_CLS_INP EA RG STSS$K_INFO = 
MACSERR_CLS OU be RG STSSM-SEVERITY = 
MACSERR~ CONNECT RG STS$S-FAC_NO 2 
MACSERR_DISCON 1 RG STS$V_FAC_NO z 0001 
CSERR_ 1 RG SYSSPOTMSG eeeeeeee =X = 03 
MACSERR—F IND_INP AB RG x1 = 00000033 | 
MACSERR _ 0 bey RG X2 = 00080000 
MACSERR_ INTERN 8 ef RG 0 
MACSERR— 000051 RG = 0 
MACSERR_LBROPEN B89 9 RG 8 
MACSERR_MODI RG 
MACSERR_NOME 000 : RG iH 
SERR_ 44 46 RG 3 
MACSERR_OPN_INP OOOOODA RG 03 
MACSERR_OPN_OUT 44 545443 RG 03 
MACSERR—PUT 00000091 RG 03 
MACSERR” TEXT 0000002D RG 03 
MACSGL FLA AGS eeeeeeee x 03 
MACSGL~ STATUS eeneeeee =X = 03 
MACSLAST_CHANCE eereeeee = YX = 03 
MACSMACRO_NAME 00000000 RG be 
MACS$PUT sc 000143 RG 0 
MLFSK_BCKSI2Z 00017 
MLFSK_RSFNLN = 000000F 
MLFSL_CTINDEX 00001 
MLFSL_MCDEF 00 
MLF$L—QL INK 00 
mM FSQ_FNARDS 
PSK MARBLE 1 
| 


RMS$_NORMA 
SHRS_ “BADLOGICPC 
SHR$~BADVALUE 
SHRS_ CLOSEIN 
SHR$_ CLOSEOUT 
SHR RS_OPEN NIN 
SHR$_OPENOUT 
SHRS_READERR 
SHRS_ Mt aaa 
SHRS_ TEX 

SHRS_ URITEERR 


SOOOOSOOCOOOOCOOOOOOOOSOOOSOOOOOSOOSOOOSOSoOOSO 


SOOoSoOSoOoOSOSOOOOOSOSOOOOOOSOOSOOOOSOOSOOOSO 
OOoOooooooooeaooooooooooooooooosoSa 


MACSERROR 


ERROR HANDLER FOR MACRO-32 
Psect synopsis 


term wrecer een meme nen + 


! Psect synopsis ! 


peor weomeecenzaces sat 


PSECT name Allocation PSECT No. 


Attributes 


. s 000000 ( q-} 00 ¢ 0.) NOPIC USR CON 
SABS$ 00001 ( 375.) 01 ¢ 1.) NOPIC USR CON 
MACSRO_DATA BROh ee f 1569 Be ( §° NOPIC USR CON 
MACSRO_CODE _P4 00000182 ( 386.) 035 ¢ 3.) NOPIC USR CON 


powers ee sce sce weece seen eee + 
Performance indicators ! 


' 
+ Se em eee ammo e $ 


Phase Page faults CPU Time Elapsed Time 
Initialization 36 00:00:00. 06 00:00:00.37 
Command processing 126 00:00:00.37 BF OD 88a 
Pass 279 Sb SE 0:00:23.88 
Symbol table sort 0 00:00:00.81 00:00:04.49 
Pass 76 00:00:01.13 BF RO: 4.64 
Symbol table output | 00:00:00.12 0:00:00.12 
Psect synopsis output 00:00: 8 - 0s 0:00:00.61 
Cross-reference output ° 00:00:00.0 OF 880 +80 
Assembler run totals 54 00:00:08.16 00:00:38.29 


The working set Limit was 1500 pages. 

49817 bytes (98 pages) of virtual memory were used to buffer the intermediate code 

There were 50 pages of symbol table space allocated to hold 967 non-local and 7 lo 
5 source lines were read in Pass 1, producing 17 object records in Pass 2. 

15 pages of virtual memory were used to define 12 macros. 


+ 
! Macro Library statistics : 
eo 


Macros defined 


Macro Library name 


~$255$DUA2B: [MACRO. OBJ JMACRO.MLB; 1 2 
$255$DUA28:CSYSLIBJSTARLET.MLB; 2 9 
TOTALS (all Libraries) 11 


991 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:ERROR/OBJ=OBJ$:ERROR MSRC$:ERROR/UPDATE=(ENH$: ERROR) +LI1B$:MACRO/LIB 


SSEP=198e Of: 


cal symbols. 


96:13 yaxcyas Macro V04-00 Page 
48:0 MACRO.SRCJERROR.MAR; 1 


ma 
ae 
~ 


LCL NOSHR NOEXE NORD 
LCL NOSHR EXE RD 
GBL NOSHR NOEXE RD 
GBL NOSHR EXE RD 


NOWRT NOVEC BYTE 
WRT NOV 
NOWRT NOVEC LONG 


MAC! 
V04: 
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